Private Sub cbo_Change()

    Range("D6").Value = Me.cbo.Value
    Me.cbo.ListIndex = Me.cbo.ListIndex

End Sub
